home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Hacks / Hacks ’92 / HyperInitMaker... / Heizer Working Models / CompileIt! WM.sea / CompileIt!™.Demo ƒ / CompileIt!™ 2.1 Working Model / background_13914.xml < prev    next >
Extensible Markup Language  |  1992-04-29  |  7KB  |  142 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>13914</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_14163.pbm</bitmap>
  7.     <cantDelete> <true /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_4717.css" />
  11.     <part>
  12.         <id>20</id>
  13.         <type>field</type>
  14.         <visible> <true /> </visible>
  15.         <dontWrap> <false /> </dontWrap>
  16.         <dontSearch> <false /> </dontSearch>
  17.         <sharedText> <false /> </sharedText>
  18.         <fixedLineHeight> <true /> </fixedLineHeight>
  19.         <autoTab> <false /> </autoTab>
  20.         <lockText> <false /> </lockText>
  21.         <rect>
  22.             <left>10</left>
  23.             <top>56</top>
  24.             <right>504</right>
  25.             <bottom>301</bottom>
  26.         </rect>
  27.         <style>scrolling</style>
  28.         <autoSelect> <false /> </autoSelect>
  29.         <showLines> <false /> </showLines>
  30.         <wideMargins> <true /> </wideMargins>
  31.         <multipleLines> <false /> </multipleLines>
  32.         <reservedFamily> 0 </reservedFamily>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>left</textAlign>
  36.         <font>Geneva</font>
  37.         <textSize>9</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <textHeight>12</textHeight>
  40.         <name>theText</name>
  41.         <script>on mouseEnterBalloonHelp "card","scriptfld",the rect of meend mouseEnter</script>
  42.     </part>
  43.     <part>
  44.         <id>5</id>
  45.         <type>field</type>
  46.         <visible> <true /> </visible>
  47.         <dontWrap> <false /> </dontWrap>
  48.         <dontSearch> <false /> </dontSearch>
  49.         <sharedText> <false /> </sharedText>
  50.         <fixedLineHeight> <true /> </fixedLineHeight>
  51.         <autoTab> <false /> </autoTab>
  52.         <lockText> <false /> </lockText>
  53.         <rect>
  54.             <left>26</left>
  55.             <top>315</top>
  56.             <right>38</right>
  57.             <bottom>327</bottom>
  58.         </rect>
  59.         <style>transparent</style>
  60.         <autoSelect> <false /> </autoSelect>
  61.         <showLines> <false /> </showLines>
  62.         <wideMargins> <false /> </wideMargins>
  63.         <multipleLines> <false /> </multipleLines>
  64.         <reservedFamily> 0 </reservedFamily>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>0</icon>
  67.         <textAlign>left</textAlign>
  68.         <font>Geneva</font>
  69.         <textSize>12</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <textHeight>16</textHeight>
  72.         <name>TokenValue</name>
  73.         <script></script>
  74.     </part>
  75.     <part>
  76.         <id>13</id>
  77.         <type>field</type>
  78.         <visible> <true /> </visible>
  79.         <dontWrap> <false /> </dontWrap>
  80.         <dontSearch> <false /> </dontSearch>
  81.         <sharedText> <false /> </sharedText>
  82.         <fixedLineHeight> <true /> </fixedLineHeight>
  83.         <autoTab> <false /> </autoTab>
  84.         <lockText> <true /> </lockText>
  85.         <rect>
  86.             <left>126</left>
  87.             <top>25</top>
  88.             <right>246</right>
  89.             <bottom>44</bottom>
  90.         </rect>
  91.         <style>rectangle</style>
  92.         <autoSelect> <false /> </autoSelect>
  93.         <showLines> <false /> </showLines>
  94.         <wideMargins> <true /> </wideMargins>
  95.         <multipleLines> <false /> </multipleLines>
  96.         <reservedFamily> 0 </reservedFamily>
  97.         <titleWidth>0</titleWidth>
  98.         <icon>0</icon>
  99.         <textAlign>center</textAlign>
  100.         <font>Geneva</font>
  101.         <textSize>9</textSize>
  102.         <textStyle>plain</textStyle>
  103.         <textHeight>12</textHeight>
  104.         <name>PassInfo</name>
  105.         <script>on mouseDownget HelpTest("card","Pinfo")end mouseDownon mouseEnterBalloonHelp "card","Pinfo",the rect of meend mouseEnteron mouseLeaveif the optionkey is down then put empty into meend mouseLeave</script>
  106.     </part>
  107.     <part>
  108.         <id>6</id>
  109.         <type>field</type>
  110.         <visible> <true /> </visible>
  111.         <dontWrap> <false /> </dontWrap>
  112.         <dontSearch> <false /> </dontSearch>
  113.         <sharedText> <false /> </sharedText>
  114.         <fixedLineHeight> <true /> </fixedLineHeight>
  115.         <autoTab> <false /> </autoTab>
  116.         <lockText> <true /> </lockText>
  117.         <rect>
  118.             <left>16</left>
  119.             <top>25</top>
  120.             <right>99</right>
  121.             <bottom>43</bottom>
  122.         </rect>
  123.         <style>rectangle</style>
  124.         <autoSelect> <false /> </autoSelect>
  125.         <showLines> <false /> </showLines>
  126.         <wideMargins> <false /> </wideMargins>
  127.         <multipleLines> <false /> </multipleLines>
  128.         <reservedFamily> 0 </reservedFamily>
  129.         <titleWidth>0</titleWidth>
  130.         <icon>0</icon>
  131.         <textAlign>right</textAlign>
  132.         <font>Geneva</font>
  133.         <textSize>12</textSize>
  134.         <textStyle>plain</textStyle>
  135.         <textHeight>15</textHeight>
  136.         <name>CPosn</name>
  137.         <script>on mouseDownget HelpTest("card","bytes")end mouseDownon mouseEnterBalloonHelp "card","bytes",the rect of meend mouseEnter</script>
  138.     </part>
  139.     <name>TextData</name>
  140.     <script>--            CompileIt:  HyperCard Script-to-XCMD/XFCN Compiler--                 Copyright  1991 June 5  Tom Pittman-- Script Page Utilitieson opencardif card field "AutoFormat" contains "‚Ä¢"then click at the loc of card field "AutoFormat"ShowHowFastend opencardon FormatTextif the version contains "S" thenput PrettyPrint(field "theText") into field "theText"elseset the script of field "TokenValue" to field "theText"put the script of field "TokenValue" into field "theText"set the script of field "TokenValue" to emptyend ifShowHowFastend FormatTexton ShowHowFastif Balloons() then get Balloons(space)put MemoryPartitions() into envget second word of card field id 25 of card "Option Page"if it is empty then get 1600 else get it+600if first item of env < it thenget FasterCompile(env)if it=0 then get "fast" else get "slow"put "("&it&"er compile)" into field "PassInfo"else put empty into field "PassInfo"end ShowHowFaston emBolden linolocker trueset the textstyle of line lino of field "theText" to "Plain"put FindSymbols(line lino of field "theText") into wordyrepeat while wordy is not emptyget second item of first line of wordyset the textstyle of char (first item of wordy) to it of line lino of field "theText" to "Bold"delete first line of wordyend repeatlocker falseend emBoldenon emBoldenAllget the versionif it contains "S" then exit emBoldenAllelse if it‚â•2.0 thenif Balloons() then get Balloons(space)put the selectedchunk into sellput 0 into scput the textheight of field "theText" into thget the rect of field "theText"put (last item of it)-(second item of it) into hirepeat with lino=1 to the number of lines in field "theText"set the cursor to busyemBolden linoif lino*th > sc thenset the scroll of field "theText" to scadd hi to scend ifend repeatif sell is not empty then do "select"&&sellend ifend emBoldenAllon SetupTextput empty into field "CPosn"end SetupTexton tabKeyif the version < 1.2 then FormatTextelse saveselect falseend tabKeyon returnInFieldif Balloons() then get Balloons(space)if the optionKey is down then type "¬¨"get the versionif it contains "S" then pass returnInFieldelse if it‚â•2.0 then if card field "AutoFormat" contains "‚Ä¢" thenput second word of the selectedchunk into whereemBolden second word of the selectedlineselect before char where of field "theText"end ifpass returnInFieldend returnInFieldon enterInFieldclick at the loc of button "Compile It"end enterInFieldon enterKeyif the visible of message box then if message is not empty then pass enterKeyclick at the loc of button "Compile It"end enterKeyon saveselect hitretnif hitretn then put return into the selectionget word 2 of the selectedLineput word 2 of the selectedChunk into field "CPosn"FormatTextif it is not empty then select after line it of field "theText"end saveselect</script>
  141. </background>
  142.